home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / gnu / button12.lha / button9101.ps < prev    next >
Text File  |  1993-08-05  |  6KB  |  214 lines
  1. % 
  2. % button9101.ps - A GNU Button Program
  3. % 
  4. % Copyright 1991 Free Software Foundation
  5. % 
  6. % This program is free software; you can redistribute it and/or modify
  7. % it under the terms of the GNU General Public License as published by
  8. % the Free Software Foundation; either version 1, or (at your option)
  9. % any later version.
  10. %
  11. % This program is distributed in the hope that it will be useful,
  12. % but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. % GNU General Public License for more details.
  15. %
  16. % You should have received a copy of the GNU General Public License
  17. % along with this program; if not, write to the Free Software
  18. % Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  19. % 
  20. % Hard copies of this button were first distributed at the January 1991
  21. % Dallas Usenix.  They had black lettering on a yellow background on a
  22. % standard 2 1/4" safety pin button.  They were designed by Leonard H.
  23. % Tower Jr. who is also the author of this GNU Button Program.
  24. % 
  25. % Report bugs or improvements to: tower@prep.ai.mit.edu
  26. % 
  27. % Hard copies of this button are probably still available.  To get a
  28. % button, one must have either donated source code or documentation to
  29. % the GNU Project or make a donation of at least $ 2.00 for each button.
  30. % 
  31. % If you wish a hard copy of a gnu button send:
  32. %     - a self-addressed, stamped envelope; and
  33. %     - either:
  34. %         - a reminder of your source or documentation contribution; or
  35. %         - a donation payable to the "Free Software Foundation"; and
  36. %     - specify which of these different versions you wish:
  37. %         Feb 88, Jun 88, Jan 89, Jun 89, Jan 90, Jun 90, and/or Jan 91
  38. % to:    L. Tower Jr.
  39. %     36 Porter Street,
  40. %    Somerville, MA  02143, USA
  41. % 
  42. % This program is available for anonymous ftp
  43. % prep.ai.mit.edu:/u2/emacs/button.N.MM.shar.  It is probably available
  44. % in other source archives.
  45.  
  46. %.so ehandler.ps
  47.  
  48. % Uses pathtext routine from Adobe Cookbook.
  49. .so pathtext.ps
  50.  
  51. % center button on 8 1/2" x 11" page
  52. 306 396 translate
  53.  
  54. % This is a kludge to give better edge resolution.
  55. % Note that postscript's scale command doesn't cut it.
  56. % It scales after the edges are set.
  57. % biggg is set to 2,3,4 or 3.9 to make a master that is that much larger.
  58. % The master is reduced that much by the button manufacturer.
  59. % If only 1200 dpi postscript printers were more common ...
  60. /biggg 1 def
  61.  
  62. % useful for centering things
  63. /circleguide {
  64.   gsave
  65.   /radius 82 biggg mul def
  66.   .5 setlinewidth
  67.   newpath
  68.     0 0 radius 0 360 arc
  69.   stroke
  70.   grestore
  71. } def
  72.  
  73. %circleguide
  74.  
  75. /setdimen {
  76.   /letsep exch biggg mul def    % half the width of a letter
  77.   /letrad exch biggg mul def
  78.   /letinside 18 biggg mul def    % vertical distance from center line to radius
  79.   /letheightlow letrad letinside add def
  80.   /letheight letheightlow linewidth 2 div add def
  81.   /letwidth letrad 2 mul def
  82. } def
  83.  
  84. /g_path {
  85.     newpath
  86.     gxcenter letinside     letrad 0 180 arc
  87.     gxcenter letinside neg letrad 180 0 arc
  88.     0 letinside 3 div rlineto
  89.     13.7 neg biggg mul 0 rlineto
  90. } def
  91.  
  92. /u_path {
  93.   newpath
  94.   /nxcenter gxcenter neg def
  95.   /nleft  nxcenter letrad neg add def
  96.   /nright nxcenter letrad     add def
  97.   nleft letheight moveto
  98.   nxcenter letinside neg letrad 180 0 arc
  99.   nright letheight lineto
  100. } def
  101.  
  102. /center_dim { 16 16 setdimen } def
  103.  
  104. /outside_dim { 15.5 16.5 setdimen } def
  105.  
  106. /inside_dim { 16.5 15.5 setdimen } def
  107.  
  108. gsave
  109.   % define the basic dimensions of the letters
  110.   % people are welcome to call this typeface:    austere gothic
  111.   /linewidth 11 biggg mul def
  112.  
  113.   /Helvetica-Narrow-Bold findfont 6 biggg mul scalefont setfont
  114.   linewidth setlinewidth
  115.   0 setlinejoin
  116.   0 setlinecap
  117.  
  118. % give us a G !
  119.     0 setgray
  120.     center_dim
  121.     /gxcenter letrad 2 mul letsep add neg def
  122.     g_path
  123.     stroke
  124.  
  125.     1 setgray
  126.     outside_dim
  127.     g_path
  128.     ( 675 MASSACHUSETTS AVE, CAMBRIDGE, MA 02139 USA)
  129.     0 pathtext
  130.  
  131.     inside_dim
  132.     g_path
  133.     reversepath
  134.     (THANXGNU!!  COPYRIGHT 1991  FREE  SOFTWARE  FOUNDATION)
  135.     0 pathtext
  136.  
  137. % give us a N !
  138.     0 setgray
  139.     center_dim
  140.     newpath
  141.     letrad neg     letheight     neg    moveto
  142.     letrad neg    letheightlow        lineto
  143.     letrad    letheightlow    neg     lineto
  144.     letrad    letheight        lineto
  145.     stroke
  146.  
  147.     1 setgray
  148.     newpath
  149.     /bla .5 biggg mul def    % amount to move baseline by
  150.     /nadj bla 1.2 mul biggg mul def    % amount to adjust diagonal of the n
  151.     letrad bla add neg     letheight     neg    moveto
  152.     letrad bla add neg    letheightlow nadj add    lineto
  153.     letrad bla sub    letheightlow nadj sub neg     lineto
  154.     letrad bla sub    letheight        lineto
  155.     % This is a kludge to make the slashes bolder
  156.     /slashwidthadj (/) stringwidth pop    % don't need y
  157.     4.1 div def
  158.     gsave
  159.     ( FROM  PREP.AI.MIT.EDU  FILE   /)
  160.     0 pathtext
  161.     grestore
  162.     gsave
  163.     (/pub/)
  164.     ( FROM  PREP.AI.MIT.EDU  FILE   /) stringwidth pop    % don't need y
  165.         slashwidthadj 3.4 mul sub
  166.     pathtext
  167.     grestore
  168.     gsave
  169.     (/gnu/)
  170.     ( FROM  PREP.AI.MIT.EDU  FILE   /pub/) stringwidth pop    % don't need y
  171.         slashwidthadj 4.2 mul sub
  172.     pathtext
  173.     grestore
  174.     gsave
  175.     % extra space is to turn the tight bend in the N.
  176.     (/button.N.MM.shar.                          GNU'S NOT UNIX!)
  177.         ( FROM  PREP.AI.MIT.EDU  FILE   /pub/gnu/) stringwidth pop % don't need y
  178.                 slashwidthadj 5.2 mul sub
  179.     pathtext
  180.     grestore
  181.  
  182.     newpath
  183.     letrad bla sub neg     letheight     neg    moveto
  184.     letrad bla sub neg    letheightlow nadj sub    lineto
  185.     letrad bla add    letheightlow nadj add neg     lineto
  186.     letrad bla add    letheight        lineto
  187.     reversepath
  188.     % extra space is to turn the tight bend in the N.
  189.     ( YOU MAY ANONYMOUS FTP          THIS  BUTTON'S                             POSTSCRIPT PROGRAM)
  190.         0 pathtext
  191.  
  192. % give us a U !
  193.     0 setgray
  194.     center_dim
  195.     /gxcenter letrad 2 mul letsep add neg def
  196.     u_path
  197.     stroke
  198.     1 setgray
  199.  
  200.     outside_dim
  201.     u_path
  202.     ( UNDER  THE  TERMS  OF  THE   GNU  GENERAL  PUBLIC  LICENSE.)
  203.     0 pathtext
  204.  
  205.     inside_dim
  206.     u_path
  207.     reversepath
  208.     ( THIS   GNU   BUTTON   DESIGN  MAY  BE   FREELY   REDISTRIBUTED)
  209.     0 pathtext
  210.  
  211. % what does it spell?!?  GNU  !!
  212. grestore
  213. showpage
  214.